home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / dadcard.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-06-05  |  1.4 KB  |  74 lines
  1. 1  REM **FATHER'S DAY CARD**
  2. 2  REM **INPUT FROM JUNE FAMILY COMPUTING MAGAZINE**
  3. 3  REM **BY P. S. ELTRINGHAM**
  4. 4  REM **PROGRAM BY JOEY LATIMER**
  5. 10  WIDTH 40
  6. 20  SCREEN 0,1
  7. 30  COLOR 7,0
  8. 40  KEY OFF
  9. 50  CLS
  10. 60  PRINT "FATHER'S DAY CARD"
  11. 70  PRINT
  12. 80  PRINT "PLEASE PRESS <ENTER> AFTER EACH REPLY."
  13. 90  PRINT
  14. 100  INPUT "WHAT IS YOUR FIRST NAME";N$
  15. 110  PRINT
  16. 120  PRINT "TELL ME, ";N$;" ..."
  17. 129  REM -- START INPUT LOOP --
  18. 130  FOR X=1 TO 3
  19. 140  READ T$,V$
  20. 150  IF X>1 THEN CLS
  21. 160  PRINT "WHAT ";T$;" DOES YOUR FATHER"
  22. 170  PRINT V$;:PRINT:
  23. 180  PRINT
  24. 190  PRINT "(9 LETTERS OR FEWER, PLEASE.)"
  25. 200  PRINT
  26. 210  PRINT "HE ";LEFT$(V$,4);"S ";RIGHT$(V$,LEN(V$)-5);
  27. 220  INPUT C$(X)
  28. 230  IF LEN(C$(X))>9 THEN 190
  29. 239  REM -- RATE DAD --
  30. 240  CLS
  31. 250  PRINT "ON A SCALE OF 1 TO 10,"
  32. 260  PRINT "HOW GOOD IS YOUR DAD AT"
  33. 270  PRINT RIGHT$(V$,LEN(V$)-5);" ";C$(X);
  34. 280  INPUT S(X)
  35. 290  IF S(X)<1 OR S(X)>10 THEN 240
  36. 300  NEXT X
  37. 309  REM -- END OF INPUT LOOP --
  38. 310  CLS
  39. 320  PRINT "PRESS <ENTER>, THEN GET YOUR DAD."
  40. 330  R$=INKEY$
  41. 340  IF R$<>CHR$(13) THEN 330
  42. 350  CLS
  43. 360  PRINT "HI DAD"
  44. 370  PRINT "PRESS <ENTER> TO SEE"
  45. 380  PRINT "HOW GOOD YOU ARE AT ..."
  46. 390  R$=INKEY$
  47. 400  IF R$<>CHR$(13) THEN 390
  48. 410  CLS
  49. 420  LOCATE 18,1
  50. 430  PRINT "PLAYING";TAB(11);"DOING";TAB(21);"PLAYING";TAB(31);"BEING"
  51. 440  PRINT C$(1);TAB(11);C$(2);TAB(21);C$(3);TAB(31);"A FATHER"
  52. 450  S(4)=14
  53. 460  FOR X=1 TO 31 STEP 10
  54. 470  Q=INT(X/10)+1
  55. 480  COLOR Q
  56. 490  FOR RO=17 TO 15-S(Q) STEP -1
  57. 500  FOR CO=X TO X+8
  58. 510  LOCATE RO,CO
  59. 520  PRINT CHR$(219)
  60. 530  NEXT CO
  61. 540  NEXT RO
  62. 550  NEXT X
  63. 560  COLOR 14
  64. 570  LOCATE 21,10
  65. 580  PRINT "HAPPY FATHER'S DAY!"
  66. 590  LOCATE 23,1
  67. 600  PRINT TAB(33-LEN(N$));"LOVE, ";N$
  68. 610  R$=INKEY$
  69. 620  IF R$="" THEN 610
  70. 630  END
  71. 1000  DATA SPORT,LIKE PLAYING
  72. 1010  DATA CHORE,HATE DOING
  73. 1020  DATA GAME,LIKE PLAYING
  74.